home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / TYPEREL.MOD < prev    next >
Text File  |  1989-01-18  |  995b  |  52 lines
  1.                                         (* Chapter 14 - Program 1 *)
  2. MODULE TypeRel;
  3.  
  4. FROM InOut IMPORT WriteCard,WriteLn;
  5.  
  6. TYPE IntType  = ARRAY[1..10] OF INTEGER;
  7.      CardType = ARRAY[81..90] OF CARDINAL;
  8.      CharType = ARRAY[1..20] OF CHAR;
  9.  
  10. VAR  IntVars  : IntType;
  11.      CardVars : CardType;
  12.      CharVars : CharType;
  13.      Index    : INTEGER;
  14.      Count    : CARDINAL;
  15.  
  16. BEGIN
  17.  
  18.    Count := 10;
  19.    Index := INTEGER(Count);
  20.    FOR Count := 1 TO 10 DO
  21.       IntVars[Count] := INTEGER(Count) + 64;
  22.    END;
  23.    CardVars[81] := CARDINAL(IntVars[1]);
  24.    CardVars := CardType(IntVars);
  25.    CharVars := CharType(CardVars);
  26.  
  27.    FOR Index := 81 TO 85 DO
  28.       WriteCard(CardVars[Index],8);
  29.    END;
  30.  
  31.    WriteLn;
  32.  
  33.    FOR Index := 1 TO 10 DO
  34.       Count := ORD(CharVars[Index]);
  35.       WriteCard(Count,4);
  36.    END;
  37.  
  38.    WriteLn;
  39.  
  40. END TypeRel.
  41.  
  42.  
  43.  
  44.  
  45. (* Result of execution
  46.  
  47.       65      66      67      68      69
  48.   65   0  66   0  67   0  68   0  69   0
  49.  
  50. *)
  51.  
  52.